home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / RXMIR12.ZIP / rxftp-test.cmd < prev    next >
Encoding:
Text File  |  1995-07-05  |  534 b   |  22 lines
  1. /* */
  2.  
  3. if RxFuncQuery("FtpLoadFuncs") then
  4.    do
  5.    rc = RxFuncAdd("FtpLoadFuncs","RxFtp","FtpLoadFuncs")
  6.    rc = FtpLoadFuncs()
  7.    end
  8.  
  9. if RxFuncQuery("SysLoadFuncs") then
  10.    do
  11.    rc = RxFuncAdd("SysLoadFuncs","RexxUtil","SysLoadFuncs")
  12.    rc = SysLoadFuncs()
  13.    end
  14.  
  15.    rc = FtpSetUser("ftp.msu.su", "anonymous", "asv@sai.msu.su")
  16.    rc = FtpChDir("/ripe")
  17.    rc = FtpPwd(remotedir)
  18.    say 'remote dir is' remotedir
  19.    rc = FtpGet("ripe-049.txt","ripe-049.txt")
  20.    say 'ftperrno is' ftperrno
  21.    call FtpLogoff
  22.